1 PO=53280:POKEPO,0:POKEPO-8,23:DIM A$(8):S=0:HP=12:W=1:L=0:POKEPO+1,0
2 PRINT"[147][152]            [212]HE [197]VIL [215]IZARD":PRINT"           (C) PINGO IN 2001
3 [153]"(null)OU HAVE TO KILL THE EVIL WIZARD."
6 [153]"(null)OU WILL MEET THE WIZARD WHEN YOU HAVE  STATUS 10 OR MORE."
8 [161]Z$:[139]Z$[178]""[167]8
11 [129]I[178]1[164]8:[135]A$(I):[130]I:[129]I[178]1[164]6:[135]B$(I):[130]I:W$[178]B$(W)
13 [129]I[178]1[164]3:[135]C$(I):[130]I
15 [137]30
16 [153]"(null)OU MEET A ";C$(E);" ";A$(D);"."
17 [153]"LEFT$E CARRIES A ";B$(F);".":[153]"LEFT$E HAS";G;"HIT-POINTS."
18 [153]"STR$O YOU (A)TTACK, (R)ETREAT OR (Q)UIT?"
19 [161]Z$:[139]Z$[178]""[167]19
20 [139]Z$[178]"A"[167][137]40
21 [139]Z$[178]"R"[167][137]60
22 [139]Z$[178]"Q"[167]40000
23 [137]19
30 [153]"LOADPRINT#(null)TATUS: ";S;" (null)EAPON: ";W$:[153]"LEFT$IT-POINTS: ";HP
31 [129]I[178]1[164]40:[153]"TAN";:[130]I
32 Q[178][181]([187](1)[172]7)[170]1:[139]Q[178]1[167]80
33 D[178][181]([187](1)[172]7)[170]1:[139]S[177]10[167]D[178]D[170]1
34 [139]D[178]8[167][137]110
35 E[178][181]([187](1)[172]3)[170]1:F[178][181]([187](1)[172]6)[170]1:G[178][181]([187](1)[172]4)[170]D:GG[178]G
36 [137]16
40 V[178][181]([187](1)[172]5)[170]1
41 [139]V[177][178]4[167]HP[178]HP[171]1
42 [139]V[179]4[167]G[178]G[171]W
43 [139]V[179]4[167][153]"(null)OU ATTACK! LEFT$E LOOSES";W;"HIT-POINTS!"
44 [139]V[177][178]4[167][153]"LEFT$E ATTACKS YOU!CLOSE(null)OU LOOSE 1 HIT-POINT!"
45 [139]HP[178][179]0[167][137]130
46 [139]G[178][179]0[167]50
47 [153]"<ANY KEY>"
48 [161]Z$:[139]Z$[178]""[167]48
49 [137]40
50 [153]"(null)OU KILLED HIM!":GG[178][181](GG[173]3):[139]L[178]1[167]114
51 [153]"(null)OU GET";GG;"MORE HIT-POINTS.
52 HP=HP+GG:GOSUB56
53 PRINT"<ANY KEY>"
54 GETZ$:IFZ$=""THEN54
55 GOTO 15
56 IFE=1THENS=S-1
57 IFE=2THENS=S+1
58 IFE=3ANDGG>10THENS=S+1
59 RETURN
60 IFE=2THEN70
61 PRINT"[217]OU ESCAPE FROM THE MONSTER."
62 GOTO53
70 PRINT"[217]OU CAN'T ESCAPE FROM HIM!"
71 GOTO40
80 PRINT"[217]OU DON'T MEET ANYONE."
81 M=INT(RND(1)*4)+1:IFM>1THEN83
82 GOTO53
83 IFW=6THENGOTO53
84 PRINT"[217]OU FOUND A NEW WEAPON!"
85 W=W+1:W$=B$(W)
86 GOTO53
100 DATA "ELF","HUMAN","DWARF","THIEF","GOBLIN","ORCH","TROLL","WIZARD"
101 DATA "KNIFE","DAGGER","STAFF","SWORD","CLUB","HAMMER"
102 DATA "FRIENDLY","EVIL","NEUTRAL"
110 PRINT"[217]OU MEET THE EVIL WIZARD!"
111 PRINT"[200]E ATTACKS YOU![160][200]E HAS 50 HIT-POINTS!"
112 G=50:L=1:GOTO40
114 PRINT"[147][217]OU KILLED THE EVIL WIZARD![160]
115 [153]"(null)EOPLE THANK YOU FOR DESTROYING THIS
116 PRINT"MONSTER![160][212]HE WORLD IS SAFE AGAIN!
118 [137] 136
130 [153]"LOAD(null)OU FOUGHT BRAVELY, BUT YOUR ENEMY"
131 [153]"KILLED YOU! (null)OU GOT STATUS";S;"."
132 [139] S[179][178]1 [167] S$[178]"VERY BAD"
133 [139] S[179]6 [175] S[177]1 [167] S$[178]"GOOD"
134 [139] S[177]5 [167] S$[178]"VERY GOOD"
135 [153]"(null)HAT IS ";S$;"."
136 [153]"STR$O YOU WANT TO PLAY AGAIN?"
137 [161]Z$:[139]Z$[178]""[167]137
138 [139]Z$[178]"Y"[167][138]
139 [137]40000
10000 D[178][194](186):N$[178]"B.EVIL WIZARD":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]